Mac100% 1999 April/MAC100-1999-04.ISO.7z/MAC100-1999-04.ISO/ｵﾝﾗｲﾝｿﾌﾄ定点観測/Utility/CNIF_MacroMaker 1.4.sit/CNIF_MacroMaker 1.4/CNIF_MacroMaker/background_39384.xml

Extensible Markup Language | 1999-01-11 | 59KB | 1,440 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>39384</id>
    <filler1>0</filler1>
    <bitmap>BMAP_40190.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
    <part>
        <id>66</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>196</left>
            <top>239</top>
            <right>219</right>
            <bottom>259</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>bold</textStyle>
        <name><<</name>
        <script>on mouseUpglobal CNMeditTextput the selectedText of bg fld id 12 into cTextif cText is empty then put the selectedText of bg fld id 18 into cTextif cText is not in bg fld id 11 and cText <> empty thenif the number of lines of bg fld id 11 >= 10 thenbeepanswer "ﾃ①ﾃ ﾃ催ｬxﾃ‡窶ｦﾃｫﾃｳﾃｪMﾃ‡竕暗‡ﾂｴﾃ‡ﾃ暗‡ﾃε‡ﾃ•10ﾃｱﾂｺﾃ⑿ﾃ碓ﾃ嘉｣ﾃ…[ﾃ益ﾃ⒀ﾃ‡窶ｹﾃ‡竕暗‡竕暗‡竏妥③"elseput cText & return after bg fld id 11put true into CNMeditText-- ﾃｨdﾃｯﾂｰﾃ荏ﾃ宇ﾃ叡ﾃ丑send "mouseUp" to bg btn id 35end ifend ifend mouseUp</script>
    </part>
    <part>
        <id>64</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>22</left>
            <top>151</top>
            <right>119</right>
            <bottom>169</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ嘘ﾃ嘉…ﾃ嘉ｬﾃ曳ﾃｬYﾃｯt</name>
        <script>on mouseUpif the hilite of me then send "mouseUp" to bg btn id 45end mouseUp</script>
    </part>
    <part>
        <id>63</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>332</left>
            <top>151</top>
            <right>393</right>
            <bottom>169</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ‡ﾂｵﾃ‡ﾂｻﾃ‡ﾂ｢</name>
        <script>on mouseUpset the hilite of bg btn "ﾃｧﾃ古ｨﾃｺﾃ‡竏妥‡ﾃˆ" to falseset the hilite of me to trueend mouseUp</script>
    </part>
    <part>
        <id>62</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>260</left>
            <top>151</top>
            <right>333</right>
            <bottom>169</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃｧﾃ古ｨﾃｺﾃ‡竏妥‡ﾃˆ</name>
        <script>on mouseUpset the hilite of bg btn "ﾃ‡ﾂｵﾃ‡ﾂｻﾃ‡ﾂ｢" to falseset the hilite of me to trueend mouseUp</script>
    </part>
    <part>
        <id>10</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>22</left>
            <top>118</top>
            <right>393</right>
            <bottom>134</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script>on closeFieldcheckTextL "40","ﾃｫﾃ凝ｱﾂｺ"end closeFieldon exitFieldcheckTextL "40","ﾃｫﾃ凝ｱﾂｺ"end exitField</script>
    </part>
    <part>
        <id>53</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>428</left>
            <top>89</top>
            <right>467</right>
            <bottom>105</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃｫIﾃｫï｣ｿ...</name>
        <script>on mouseUpif the optionKey is down thenanswer "ﾃｬ]ﾃｫﾃｳﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ‡ﾃεｩwﾃｭﾃ凝‡ï｣ｿﾃ丑ﾃ嘉､ﾃ陰ﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③" with "OK" or "Cancel"if it is "OK" thenput empty into bg fld id 8end ifelsesend "mouseUp" to bg fld id 8end ifend mouseUp</script>
    </part>
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>8</left>
            <top>4</top>
            <right>194</right>
            <bottom>24</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>mainMenu</name>
        <script>on mouseDownmainMenuend mouseDown</script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>200</left>
            <top>4</top>
            <right>445</right>
            <bottom>24</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>subMenu</name>
        <script>on mouseDownsubMenu bg fld "subMenuList"end mouseDown</script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>0</left>
            <top>330</top>
            <right>12</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUplock screenget the visible of bg fld "subMenuList"set the visible of bg fld "subMenuList" to not itend mouseUp</script>
    </part>
    <part>
        <id>8</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>22</left>
            <top>47</top>
            <right>421</right>
            <bottom>105</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name></name>
        <script>on mouseUpset the cursor to watchif the optionKey is down thendelete the clicklineelseglobal ListSelectExitput cd fld id 1 of cd " ﾃｩﾃ崚ｪMﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ ﾃ催ｳﾃｳ " into mlistif mList is empty or the shiftKey is down thenput cd fld id 1 of cd "11. ﾃｬdﾃｩqﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｧﾆ津ｩﾃ崚ｪMﾃ⑴ﾃｧﾃ古ｨﾃｺ" into mlistput cd fld id 6 of cd "11. ﾃｬdﾃｩqﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｧﾆ津ｩﾃ崚ｪMﾃ⑴ﾃｧﾃ古ｨﾃｺ" into melseput cd fld id 3 of cd " ﾃｩﾃ崚ｪMﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ ﾃ催ｳﾃｳ " into mend ifif mList is empty thenanswer "ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ‡邃｢ﾃ‡窶 ﾃ‡ﾃ凝‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③"exit mouseUpend ifput me into listput empty into selectedListrepeat with r = 1 to the number of lines of mListget line r of mListdelete char 1 to 5 of itput the number of chars of it into ndelete char (n - 10) to n of itif it is in list then put r & "," after selectedListend repeatput "ﾃｬ]ﾃｫﾃｳﾃ‡竏妥‡ﾃ暗嘉…ﾃ…[ﾃ嘉｣ﾃ‡ï｣ｿﾃｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③ﾃ⑿ﾃｯﾂｰﾃｪﾃｮﾃｫIﾃｫï｣ｿﾃ｢ﾂｬﾃ⒀ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ① " & m into promptput ListSelect ("3#",mlist,prompt,"s=" & selectedList,"-3,29,516,314","NoDoubleClick","ASLFont+,9","OK",return) into sListif ListSelectExit <> "Cancel" thenput empty into sTitlerepeat with r = 1 to the number of lines of slistset the cursor to busyget line (line r of slist) of mlist & returnif char 1 to 4 of it is "    " then get line (line r of slist) - 1 of mlist & returnif it is not in sTitle then put it after sTitleend repeatput sTitle into meend ifend ifend mouseUp</script>
    </part>
    <part>
        <id>11</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>22</left>
            <top>192</top>
            <right>191</right>
            <bottom>306</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <true /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name></name>
        <script>on mouseUpif the optionKey is down then put empty into meelse delete the selectedLine of meselect line 0 of meend mouseUp</script>
    </part>
    <part>
        <id>12</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>224</left>
            <top>192</top>
            <right>393</right>
            <bottom>306</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <true /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name></name>
        <script>on mouseDownglobal dragSput word 2 of the clickLine into dragSend mouseDownon mouseStillDowndragCursorend mouseStillDownon mouseLeaveglobal dragS,CNMeditTextput empty into dragSif the short id of this bg is 39384 thenif CNMeditText is true thensortIDList 11put false into CNMeditTextend ifget the selectedText of meget (it <> empty and "ﾃ①ﾃ⒣\｢ﾃ①" is not in it)set the enabled of bg btn id 24 to itif it then select line 0 of bg fld id 18get (the selectedText of bg fld id 18 <> empty)set the enabled of bg btn id 26 to itend ifpass mouseLeaveend mouseLeaveon mouseUpdragListget the resultset the cursor to watchif item 1 of it <> item 2 of it thendisable bg btn id 24disable bg btn id 26unlock screenselect line 0 of meexit mouseUpend ifselect line 0 of bg fld id 18put the selectedText of me into cTextif cText is empty then exit mouseUpget divName(cText)put item 1 of it into UserIDput item 2 of it into Handleif the optionKey is down thenif Handle contains "ﾃ①ﾃ⒣\｢ﾃ①" then exit mouseUpdelete line (word 2 of the selectedline of bg fld id 12) of bg fld id 12select line 0 of bg fld id 12disable bg btn id 24elsewait 5if the mouseClick then  -- ﾃ 竏づｪﾃ甘嘉､ﾃ厩ﾃ曳ﾃ‡ﾃｷset the hilite of bg btn id 66 to truesend "mouseUp" to bg btn id 66set the hilite of bg btn id 66 to false-- select line 0 of meelse if the clickText is "ﾃ①ﾃ⒣\｢ﾃ①" thenif Handle contains "ﾃ①ﾃ⒣\｢ﾃ①" thenif the visible of bg fld id 18 and the short name of bg btn id 20 <> UserID then send "mouseUp UserID" to bg btn id 20send "mouseUp UserID" to bg btn id 20disable bg btn id 24end ifelselock screenif Handle contains "ﾃ①ﾃ⒣\｢ﾃ①" then disable bg btn id 24else enable bg btn id 24disable bg btn id 26end ifend ifend mouseUp</script>
    </part>
    <part>
        <id>20</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>224</left>
            <top>63</top>
            <right>393</right>
            <bottom>79</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp UserIDlock screenset cursor to watchif the visible of bg fld id 18 thenhide bg fld id 18hide bg btn id 20select line 0 of bg fld id 18disable bg btn id 26elseput groupList (UserID) into bg fld id 18set the name of me to UserIDshow bg fld id 18show bg btn id 20end ifunlock screen with wipe up fastend mouseUp</script>
    </part>
    <part>
        <id>21</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>409</left>
            <top>221</top>
            <right>489</right>
            <bottom>241</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ID / ﾃｱﾂｺﾃｫOﾃｬﾂｸﾃｳﾃ•</name>
        <script>on mouseUpsend "mouseUp" to bg btn id 21 of cd 1 of bg "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｫﾃｳﾃｪM"end mouseUp</script>
    </part>
    <part>
        <id>22</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>405</left>
            <top>292</top>
            <right>464</right>
            <bottom>310</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ碓ﾃ嘉｣ﾃ…[ﾃ益</name>
        <script>on mouseUplock screen-- if the hilite of me then exit mouseUpset the hilite of bg btn "ID" to falseset the hilite of me to trueset the hilite of bg btn "ﾃ碓ﾃ嘉｣ﾃ…[ﾃ益" of cd 1 of bg "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｫﾃｳﾃｪM" to trueset the hilite of bg btn "ID" of cd 1 of bg "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｫﾃｳﾃｪM" to falsesortIDList 12sortIDList 11end mouseUp</script>
    </part>
    <part>
        <id>23</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>463</left>
            <top>292</top>
            <right>493</right>
            <bottom>310</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ID</name>
        <script>on mouseUplock screen-- if the hilite of me then exit mouseUpset the hilite of bg btn "ﾃ碓ﾃ嘉｣ﾃ…[ﾃ益" to falseset the hilite of me to trueset the hilite of bg btn "ﾃ碓ﾃ嘉｣ﾃ…[ﾃ益" of cd 1 of bg "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｫﾃｳﾃｪM" to falseset the hilite of bg btn "ID" of cd 1 of bg "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｫﾃｳﾃｪM" to truesortIDList 12sortIDList 11end mouseUp</script>
    </part>
    <part>
        <id>24</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <false /> </enabled>
        <rect>
            <left>409</left>
            <top>246</top>
            <right>489</right>
            <bottom>266</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ID / ﾃｱﾂｺﾃｫOﾃｯﾅ禿ｧX</name>
        <script>on mouseUpput the selectedText of bg fld id 12 into txtif txt <> empty thensend "changeIDHandle txt" to bg btn id 24 of cd 1 of bg "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｫﾃｳﾃｪM"elseanswer "ﾃｯﾅ禿ｧXﾃ‡竏妥‡ﾃˆID / ﾃｱﾂｺﾃｫOﾃ‡ï｣ｿﾃ丑ﾃ嘉､ﾃ叡ﾃ丑ﾃ‡ﾂｵﾃ‡ﾆ津ｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"end ifend mouseUp</script>
    </part>
    <part>
        <id>25</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>451</left>
            <top>270</top>
            <right>489</right>
            <bottom>290</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃｧﾃŒ ﾃｨﾃｺ</name>
        <script>on mouseUp mesput the selectedText of bg fld id 12 into txtif txt <> empty thensend "deleteIDHandle txt" to bg btn id 25 of cd 1 of bg "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｫﾃｳﾃｪM"elseif mes is empty and the selectedLine of bg fld id 18 <> empty then put return & "ﾃ…ﾂｶﾃ碓ﾃ嘉｣ﾃ…[ﾃ益ﾃ‡ﾃオDﾃ‡ﾃ陛ｧﾃ古ｨﾃｺﾃ‡竕暗‡ﾂｴﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩ﾃ疫ﾃ叡ﾃ丑ﾃ‡ï｣ｿﾃｯ窶愿ｨWﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" into mesanswer "IDﾃ嘉､ﾃ厩ﾃ曳ﾃ‡ï｣ｿﾃｫSﾃ‡ﾆ津ｧﾃ古ｨﾃｺﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥‡ﾂｩﾃ⑨" & return & return & "IDﾃ‡ï｣ｿﾃ･ﾂｬﾃｯﾂ ﾃ‡窶ｦﾃｧﾃ古ｨﾃｺﾃ‡竏妥‡ﾃ暗‡窶ｦﾃ‡ﾃ陛ｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津‡ﾂｩﾃ‡ﾃﾃｧﾃ古ｨﾃｺﾃ閲ﾃ運ﾃ嘉ｬﾃ‡ï｣ｿﾃ丑ﾃ嘉､ﾃ叡ﾃ丑ﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" & mes with "OK" or "Cancel"if it is "Cancel" then exit mouseUpput bg fld id 12 into idListget divList(idList)put item 1 of it into bg fld id 12end ifend mouseUp</script>
    </part>
    <part>
        <id>26</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <false /> </enabled>
        <rect>
            <left>409</left>
            <top>270</top>
            <right>448</right>
            <bottom>290</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ嘘ﾃ鋭ﾃ…[</name>
        <script>on mouseUpput the selectedText of bg fld id 18 into txtif txt <> empty thensend "moveIDHandle txt" to bg btn id 26 of cd 1 of bg "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｫﾃｳﾃｪM"elseanswer "ﾃ嘘ﾃ鋭ﾃ…[ﾃ‡竏妥‡ﾃˆID / ﾃｱﾂｺﾃｫOﾃ‡ï｣ｿﾃ丑ﾃ嘉､ﾃ叡ﾃ丑ﾃ‡ﾂｵﾃ‡ﾆ津ｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"end ifend mouseUp</script>
    </part>
    <part>
        <id>27</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>285</left>
            <top>317</top>
            <right>305</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>8349</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoPrevBgend mouseUp</script>
    </part>
    <part>
        <id>28</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>306</left>
            <top>317</top>
            <right>326</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>23718</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoPrevCdend mouseUp</script>
    </part>
    <part>
        <id>29</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>325</left>
            <top>317</top>
            <right>345</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>23717</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoNextCdend mouseUp</script>
    </part>
    <part>
        <id>30</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>346</left>
            <top>317</top>
            <right>366</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>8350</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoNextBgend mouseUp</script>
    </part>
    <part>
        <id>31</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>370</left>
            <top>317</top>
            <right>390</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13301</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoPrevMcend mouseUp</script>
    </part>
    <part>
        <id>32</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>389</left>
            <top>317</top>
            <right>409</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13302</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoNextMcend mouseUp</script>
    </part>
    <part>
        <id>33</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>454</left>
            <top>317</top>
            <right>474</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>6720</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoTopCdend mouseUp</script>
    </part>
    <part>
        <id>34</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>39</left>
            <top>318</top>
            <right>153</right>
            <bottom>339</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>NIFTY-Navigator II</name>
        <script>on mouseUpsend "mouseUp" to bg btn id 26 of card " ﾃ厭ﾃ丑ﾃ嘉ｧ "end mouseUp</script>
    </part>
    <part>
        <id>35</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>109</left>
            <top>175</top>
            <right>191</right>
            <bottom>193</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃｨdﾃｯﾂｰﾃ荏ﾃ宇ﾃ叡ﾃ丑</name>
        <script>on mouseUpif the hilite of me then DupliCheckhide msgend mouseUpon DupliCheckput bg fld id 11 into checkListif "ﾃ①ﾃ⒣\｢ﾃ①" is not in checkList then exit DupliCheckput "ﾃｨdﾃｯﾂｰﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃｭﾃœ"-- ﾃｨdﾃｯﾂｰﾃ荏ﾃ宇ﾃ叡ﾃ丑put dupliCheck(checkList) into checkListput item 1 of checkList into gListput item 2 of checkList into iListif the hilite of bg btn "ﾃ碓ﾃ嘉｣ﾃ…[ﾃ益" thenput gList & iList into checkListelseput iList & gList into checkListend ifput checkList into bg fld id 11end DupliCheck</script>
    </part>
    <part>
        <id>41</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>487</left>
            <top>5</top>
            <right>505</right>
            <bottom>23</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>createMark</name>
        <script>on mouseUpset marked of this card to hilite of meend mouseUp</script>
    </part>
    <part>
        <id>18</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>224</left>
            <top>79</top>
            <right>393</right>
            <bottom>193</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <true /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name></name>
        <script>on mouseLeaveglobal CNMeditTextif the short id of this bg is 39384 thenif CNMeditText is true thensortIDList 11put false into CNMeditTextend ifget the selectedText of me <> emptyset the enabled of bg btn id 26 to itif it then select line 0 of bg fld id 12get the selectedText of bg fld id 12 <> emptyset the enabled of bg btn id 24 to itend ifpass mouseLeaveend mouseLeaveon mouseUpset the cursor to watchselect line 0 of bg fld id 12put the selectedText of me into cTextif cText is empty then exit mouseUpget divName(cText)put item 1 of it into UserIDput item 2 of it into Handlewait 5if the mouseClick then  -- ﾃ 竏づｪﾃ甘嘉､ﾃ厩ﾃ曳ﾃ‡ﾃｷset the hilite of bg btn id 66 to truesend "mouseUp" to bg btn id 66set the hilite of bg btn id 66 to false-- select line 0 of meelsedisable bg btn id 24enable bg btn id 26end ifend mouseUp</script>
    </part>
    <part>
        <id>45</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>120</left>
            <top>152</top>
            <right>159</right>
            <bottom>168</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃｯ窶愿ｨW</name>
        <script>on mouseUpset the cursor to watchlock screenshow bg fld id 46show bg fld id 48show bg btn id 47show bg btn id 49unlock screen with zoom open fastend mouseUp</script>
    </part>
    <part>
        <id>46</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>8</left>
            <top>159</top>
            <right>505</right>
            <bottom>315</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script>on closeFieldif the number of lines of bg fld id 46 > 10 thenbeepanswer "ﾃ嘘ﾃ嘉…ﾃ嘉ｬﾃ曳ﾃ‡邃｢10ﾃｧsﾃ ﾂｻﾃｨ窶榲‡窶 ﾃ‡ﾃ凝‡窶ｹﾃ‡竏妥③"end ifend closeField</script>
    </part>
    <part>
        <id>47</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>8</left>
            <top>141</top>
            <right>505</right>
            <bottom>160</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>-1</titleWidth>
        <icon>-1</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>FieldTitleBar</name>
        <script></script>
    </part>
    <part>
        <id>48</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>102</left>
            <top>142</top>
            <right>412</right>
            <bottom>159</bottom>
        </rect>
        <style>opaque</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>49</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>16</left>
            <top>144</top>
            <right>29</right>
            <bottom>157</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseStillDownif the mouseLoc is within (the rect of me) thenset the icon of me to 23100set the cursor to arrowelseset the icon of me to 0end ifend mouseStillDownon mouseUpset the icon of me to 0select emptyif the number of lines of bg fld id 46 > 10 thenbeepanswer "ﾃ嘘ﾃ嘉…ﾃ嘉ｬﾃ曳ﾃ‡邃｢10ﾃｧsﾃ ﾂｻﾃｨ窶榲‡窶 ﾃ‡ﾃ凝‡窶ｹﾃ‡竏妥③"elselock screenhide bg fld id 46hide bg fld id 48hide bg btn id 47hide bg btn id 49unlock screen with zoom close fastend ifend mouseUp</script>
    </part>
    <part>
        <id>50</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>496</left>
            <top>326</top>
            <right>512</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>BookMark</name>
        <script>on mouseUpsetBookmarkend mouseUp</script>
    </part>
    <part>
        <id>51</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>476</left>
            <top>314</top>
            <right>512</right>
            <bottom>328</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>BookMarkNo</name>
        <script></script>
    </part>
    <part>
        <id>55</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>410</left>
            <top>317</top>
            <right>430</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13303</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGOPrevBMend mouseUp</script>
    </part>
    <part>
        <id>56</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>429</left>
            <top>317</top>
            <right>449</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13304</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGONextBMend mouseUp</script>
    </part>
    <part>
        <id>57</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>8</left>
            <top>319</top>
            <right>31</right>
            <bottom>340</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>21700</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>GoHome</name>
        <script>on mouseUpgoHomeend mouseUp</script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>355</left>
            <top>28</top>
            <right>505</right>
            <bottom>99</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>subMenuList</name>
        <script></script>
    </part>
    <part>
        <id>58</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <false /> </enabled>
        <rect>
            <left>448</left>
            <top>6</top>
            <right>466</right>
            <bottom>24</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>12490</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>openGuide</name>
        <script>on mouseUpCNMGuide "ﾃｬdﾃｩqﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｬ]ﾃｫﾃｳ"end mouseUp</script>
    </part>
    <part>
        <id>59</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>160</left>
            <top>318</top>
            <right>274</right>
            <bottom>339</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name> ﾃｩﾃ崚ｪMﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ ﾃ催ｳﾃｳ </name>
        <script>on mouseUpif the commandKey is up then wait 15if not(the optionKey is "up" and the mouse is "up") thenvisual effect barn door close fast to inversevisual effect barn door open fastgo to cd "11. ﾃｬdﾃｩqﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｧﾆ津ｩﾃ崚ｪMﾃ⑴ﾃｧﾃ古ｨﾃｺ"elsevisual effect dissolve very fastgo to cd " ﾃｩﾃ崚ｪMﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ ﾃ催ｳﾃｳ "end ifend mouseUp</script>
    </part>
    <part>
        <id>61</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>22</left>
            <top>34</top>
            <right>420</right>
            <bottom>48</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseDownset the textAlign of bg fld id 8 to rightend mouseDownon mouseUpset the textAlign of bg fld id 8 to leftend mouseUp</script>
    </part>
    <part>
        <id>65</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>467</left>
            <top>6</top>
            <right>485</right>
            <bottom>24</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>6356</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>HelpON/OFF</name>
        <script>on mouseUpHelpToggleend mouseUp</script>
    </part>
    <content>
        <layer>background</layer>
        <id>1</id>
        <text>ﾃｬdﾃｩqﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｬ]ﾃｫﾃｳ</text>
    </content>
    <content>
        <layer>background</layer>
        <id>51</id>
        <text>0 / 0</text>
    </content>
    <content>
        <layer>background</layer>
        <id>3</id>
        <text> ﾃｩﾃ崚ｪMﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ ﾃ催ｳﾃｳ Untitled_1</text>
    </content>
    <content>
        <layer>background</layer>
        <id>48</id>
        <text><span class="style1">Rﾃ嘉…ﾃ嘉ｬﾃ曳ﾃ⑿1</span><span class="style2">0</span><span class="style1">ﾃｧsﾃ ﾂｻﾃｬ窶｡</span><span class="style2">/</span><span class="style1">ﾃｨﾂｻﾃｳ邃｢ﾃ｢ﾂｬ</span><span class="style2">/</span><span class="style1">ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃｬ]ﾃｫﾃｳﾃｩﾃｻﾃ‡ﾂｻﾃ‡ﾂｵﾃ⒀</span></text>
    </content>
    <name>ﾃｬdﾃｩqﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｬ]ﾃｫﾃｳ</name>
    <script>on closeCardif the visible of bg fld id 46 then send "mouseUp" to bg btn id 49pass closeCardend closeCardon newCardsend "mouseUp" to bg btn id 63pass newCardend newCardon closebackgroundlock screenif the visible of bg fld id 18 then send "mouseUp UserID" to bg btn id 20set the scroll of bg fld id 12 to 0select line 0 of bg fld id 12select line 0 of bg fld id 18disable bg btn id 24disable bg btn id 26put bg fld id 12 into bg fld id 12 of cd 1 of bg "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｫﾃｳﾃｪM"unlock screenhide msgpass closeBackgroundend closebackgroundon commandKeyDown whichKeyif whichKey is "w" thenif the visible of bg fld id 46 then send "mouseUp" to bg btn id 49else pass commandKeyDownelse pass commandKeyDownend commandKeyDownon controlKey whichKeyif the short name of this cd is " ﾃｩﾃ崚ｪMﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ ﾃ催ｳﾃｳ " then pass controlKeyif whichKey = 1 then -- A "ID / ﾃｱﾂｺﾃｫOﾃｬﾂｸﾃｳﾃ•"sendBtn "bg btn id 21"else if whichKey = 5 then -- E "ﾃｯ窶愿ｨW"sendBtn "bg btn id 45"else if whichKey = 7 then -- Gif the hilite of bg btn id 23 then send "mouseUp" to bg btn id 22else send "mouseUp" to bg btn id 23-- else if whichKey = 19 then -- S-- send "mouseUp" to bg fld id 8elsepass controlKeyend ifend controlKeyon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ…[ﾃ運ﾃ‡ï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③" with "ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪ" or "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenput (cNMDialogOFF is "true" or it is "ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪ") into modeput "8,10,11,18,46" into listrepeat with r = 1 to the number of items of listput empty into bg fld id (item r of list)end repeatset the hilite of bg btn id 64 to falseset the name of bg btn id 20 to emptysend "mouseUp" to bg btn id 63if mode thenif the number of lines of bg fld "subMenuList" <= 2 then put " ﾃｩﾃ崚ｪMﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ ﾃ催ｳﾃｳ " & return into bg fld "subMenuList"reNameCard "Untitled_1"end ifend clearDataon allclearDataclearDataset the name of bg btn id 20 to emptyput empty into bg fld id 12put empty into bg fld id 18end allclearData-- ﾃｱﾂｺﾃｫO / IDﾃｬﾂｸﾃｳﾃ•function enterUserName UserID,Handlesend "sendEnterUName UserID,Handle" to bg "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｫﾃｳﾃｪM"return the resultend enterUserNameon putIDHandle uNameList,fIDsend "putIDHandle uNameList,fID" to bg "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｫﾃｳﾃｪM"end putIDHandle-- ﾃｬﾂｸﾃｳﾃ肘Dﾃ‡ﾃεｨdﾃｯﾂｰﾃ荏ﾃ宇ﾃ叡ﾃ丑function IDCheck idList,UserIDrepeat while UserID is in idListdelete char 1 to (offset(UserID,idList) - 1) of idListget char 1 to (offset(tab,idList) - 1) of idListif it is UserID then return trueelse delete line 1 of UserIDend repeatreturn falseend IDCheck-- "tab" -> ","function divName nput "," into char offset(tab,n) of nreturn nend divNameon sortIDList fIDsend "sortIDList fID" to bg "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｫﾃｳﾃｪM"end sortIDList-- ﾃ碓ﾃ嘉｣ﾃ…[ﾃ益ﾃｭﾃ､ﾃｨofunction groupList groupNamesend "sendgroupList groupName" to bg "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｫﾃｳﾃｪM"return the resultend groupList-- ﾃｨdﾃｯﾂｰﾃ荏ﾃ宇ﾃ叡ﾃ丑function dupliCheck iListget divList (iList)put item 1 of it into gListput item 2 of it into iListput empty into gIDListrepeat with r = 1 to the number of lines of gListput groupList(item 1 of divName(line r of gList)) after gIDListend repeatrepeat with r = the number of lines of iList down to 1put line r of iList into idNameif item 1 of divName(idName) is in gIDList thendelete line r of iListend ifend repeatreturn gList &","& iListend dupliCheck-- ﾃ碓ﾃ嘉｣ﾃ…[ﾃ益ﾃ‡ﾃεｯ邃｢ﾃｳﾂ｣function divList iListput empty into gListrepeat with r = the number of lines of iList down to 1set cursor to busyget line r of iListif it contains "ﾃ①ﾃ⒣\｢ﾃ①" thenput it & return before gListdelete line r of iListend ifend repeatreturn gList &","& iListend divList----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMvariableList,cNM_MAIL,cNM_MAIL1FORset the cursor to watchput bg fld "subMenu" into cdName-- put cdName & "ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑ﾃｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"ReportCdNameget dataCheck()if it <> empty thenmakeMacroError it,"ﾃｪ窶ｺﾃｭﾃ凝‡邃｢ﾃｯsﾃｨ¥ﾃｯ邃｢ﾃ‡竕暗‡竏妥③",cdNameexit makeMacroend if-- ﾃｨdﾃｯﾂｰﾃ荏ﾃ宇ﾃ叡ﾃ丑send "DupliCheck" to bg btn id 35put cdName & "ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"-- GO MAILif MtScanList (cNMvariableList,"cNM_MAIL",,true) is empty thenput empty into cNM_MAILputVariableName "cNM_MAIL"get MacroGoMail()put it after cNM_MAILend ifputVariableName "cNM_MAIL1FOR"if the hilite of bg btn id 62 then put 1 into delMailelse put 2 into delMail--put bg fld id 8 into mailListput the number of lines of mailList into nput firstTitle(line 1 of mailList,false,false) into l1delete char 1 of l1if n > 1 thenput firstTitle(last line of mailList,false,false) into l2delete char 1 of l2end ifput empty into listrepeat with r = 1 to nput (word 1 of char 2 to 4 of line r of mailList) & "," after listend repeatdelete last char of listput nextLabel() into label1put "m: ﾃｬdﾃｩqﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｬ]ﾃｫﾃｳ" & return &ﾂｬ"s:FORward^m" & return into cNM_MAIL1FORput "r:" & l1 & "ﾆ’" & label1 & ":^mﾃ…ﾃ‘" & return after cNM_MAIL1FORif n > 1 thenput "r:" & l2 & "ﾆ’" & label1 & ":^mﾃ…ﾃ‘" & return after cNM_MAIL1FORend ifput "r:^mﾃ…ﾃ‘" & return &ﾂｬ"s:" & list & "^m" & return after cNM_MAIL1FORrepeat with r = 1 to nput line r of mailList into txtput not(char 3 of txt is a number and char 4 of txt is " ") into modeput mailStatus(txt,mode) into mailTypeput Macro1(mailType,delMail,txt) after cNM_MAIL1FORend repeatput "r:^mMAIL>" & return &ﾂｬlabel1 & ":" & return after cNM_MAIL1FORif n > 1 then put 2 into xelse put 1 into xput "*: TotalLabel : " & x & return after cNM_MAIL1FORif delMail is 1 thenif MtScanList (cNMvariableList,"cNM_MAIL2DEL",,true) is empty thenglobal cNM_MAIL2DELputVariableName "cNM_MAIL2DEL"put "m: ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｩﾃ佚ｯﾂ ﾃｩqﾃ嘉､ﾃ厩ﾃ曳" & return  &ﾂｬ"s:LISt^m" & return & "r:^mMAIL>" & return &ﾂｬ"*: TotalLabel : 0" & return into cNM_MAIL2DELend ifif MtScanList (cNMvariableList,"cNM_MAIL3REA",,true) is empty thenglobal cNM_MAIL3REAputVariableName "cNM_MAIL3REA"put nextLabel() into labelput "m: ﾃｬdﾃｩqﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ ﾃ催ｳﾃｳﾃｩﾃ甘ｬﾃｦ" & return &ﾂｬ"s:REAd^m" & return &ﾂｬ"r:^mﾃ…ﾃ柁’" & label & ":^mMAIL>" & return &ﾂｬ"s:E^m" & return & "r:^mMAIL>" & return &ﾂｬlabel & ":" & return &ﾂｬ"*: TotalLabel : 1" & return into cNM_MAIL3REAend ifend ifend makeMacrofunction Macro1 mailType,delMail,txtdelete char 1 to 5 of txtrepeat 6delete last char of txtend repeatput "*:" && txt & return into mif mailType is false thenput "r:ﾃｨIﾃｳﾏ\ﾃ‡ﾃ陛ｧsﾃｬ邃｢ﾃ‡竕ˆ/Eﾃ⒀" & return after mput commentTxt(mailType) after mput "*:ﾃｨCﾃｪ竕･ (1:ﾃｨCﾃｪ竕･ﾃ‡竏妥‡ﾃ暗①2:ﾃ‡ﾂｵﾃ‡ﾂｻﾃ‡ﾂ｢)" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:2^m" & return &ﾂｬ"r:^mﾃ⑦" & return after melseput "r:^mﾃ⑦" & return after mend ifput "*:ﾃｫﾃ凝ｱﾂｺ" & return &ﾂｬ"s:" & bg fld id 10 & "^m" & return &ﾂｬ"*:ﾃ､mﾃｮF(1:OK  2:NG)" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:1^m" & return after mput addList(mailType) into aList-- if aList is empty then return emptyput the number of lines of aList into lnrepeat with r = 1 to lnget line r of aListif mailType is true and char 1 of it is "F" and "-" is in it then next repeatput "*:ﾃ 竏づｪﾃŠ" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:" & it & "^m" & return &ﾂｬ"*:ﾃ､mﾃｮF" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:1^m" & return after mend repeatif ln < 10 thenput "*:ﾃ 竏づｪﾃŠ" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:^m" & return after mend ifput "*:ﾃｫﾃｳﾃｪM" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:1^m" & return &ﾂｬ"r:ﾃ❶ﾃｫﾃｳﾃｪMﾃ､ﾃ†ﾃｳﾏ\ﾃ❶" & return &ﾂｬ"*:ﾃｧﾃ古ｨﾃｺ(1:ﾃｧﾃ古ｨﾃｺﾃ‡竏妥‡ﾃ暗①2:ﾃ‡ﾂｵﾃ‡ﾂｻﾃ‡ﾂ｢)" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:" & delMail & "^m" & return after mreturn mend Macro1function addList mailTypeput empty into rListput bg fld id 11 into listput the number of lines of list into nrepeat with r = 1 to nget item 1 of divName(line r of list)if mailType is true and ((char 1 of it is "F" and "-" is in it) or ("@" is in it and "." is in it)) then next repeatput it & return after rListend repeatreturn line 1 to min(the number of lines of list,10) of rlistend addListfunction commentTxt mailTypeput bg fld id 46 into txtif the hilite of bg btn id 64 is false or mailType is true then put empty into txtput min(the number of lines of txt,10) into nput empty into rTxtrepeat with r = 1 to nget line r of txtif it is "/E" or it is "/POST" then exit repeatput "s:" & it & "^m" & return after rTxtend repeatput "s:/E^m" & return after rTxtreturn rTxtend commentTxtfunction mailStatus txt,modeif mode thenput the number of words of txt into nput word (n - 4) to n of txt into msreturn (char 1 of ms is "B")elserepeat while length(txt) > 57delete word 1 of txtend repeatreturn (char 8 of txt is "B")end ifend mailStatuson FORmailCheckput cd fld id 1 of cd " ﾃｩﾃ崚ｪMﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ ﾃ催ｳﾃｳ " into mlistput empty into selectedListif mlist <> empty thenput bg fld id 8 into listrepeat with r = 1 to the number of lines of mListget line r of mListdelete char 1 to 5 of itif it is in list then put line r of mList & return after selectedListend repeatend ifput selectedList into bg fld id 8end FORmailCheckfunction dataCheckput empty into rtFORmailCheckput bg fld id 8 into mListif mList is empty thenput "ﾃ烏ﾃ嘉｢ﾃ…[ﾃ⑦ﾃｬ]ﾃｫﾃｳﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ‡邃｢ﾃｪ窶ｺﾃｭﾃ凝‡竕･ﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③" & return after rtend ifif bg fld id 11 is empty then put "ﾃ烏ﾃ嘉｢ﾃ…[ﾃ⑦ﾃ 竏づｪﾃ甘‡邃｢ﾃｪ窶ｺﾃｭﾃ凝‡竕･ﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③" & return after rtif (mList <> empty or bg fld id 11 <> empty) and addList(true) is empty thenput the number of lines of mList into nrepeat with r = n down to 1get line r of mListput not(char 3 of it is a number and char 4 of it is " ") into modeif mailStatus(it,mode) then delete line r of mListend repeatput mList into bg fld id 8if mList is empty thenput "ﾃ烏ﾃ嘉｢ﾃ…[ﾃ⑦ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ‡ﾃ陛韻ﾃ嘉ｬﾃ運ﾃ…[ﾃ瑛ﾃ叡ﾃ曳ﾃ⑴FAXﾃ‡ﾃｷﾃｬ]ﾃｫﾃｳﾃ‡竕暗‡ﾂｴﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③" & return after rtend ifend ifreturn rtend dataCheckon GComBtnreturn emptyend GComBtnon scrFldsetScrollFld "bg fld id 12"end scrFld</script>
</background>